From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 29 Jan 2025 20:37:54 +0000 (-0400)
Subject: debug test suite crash on windows
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~6^2~183^2~5
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=415455883c1b8ce8d3077146471370c4fe9346d3;p=git-annex.git

debug test suite crash on windows
---

diff --git a/Git/HashObject.hs b/Git/HashObject.hs
index 35031f20ae..85d027348b 100644
--- a/Git/HashObject.hs
+++ b/Git/HashObject.hs
@@ -49,6 +49,10 @@ hashFile hdl@(HashObjectHandle h _ _) file = do
 	-- So, make the filename absolute, which will work now
 	-- and also if git's behavior later changes.
 	file' <- absPath file
+	-- XXX windows crash debugging
+#ifndef mingw32_HOST_OS
+	hPutStrLn stderr $ show ("hashFile called on file", file, "abspath is", file')
+#endif
 	if newline `S.elem` file' || carriagereturn `S.elem` file
 		then hashFile' hdl file
 		else CoProcess.query h (send file') receive